home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / proc.bubblesort < prev    next >
Text File  |  2009-01-03  |  270b  |  10 lines
  1. 0490 PROC BUBBLESORT 
  2. 0500   FOR TIMES:=1 TO 10 DO
  3. 0510     FOR START:=1 TO 11-TIMES DO
  4. 0520       IF NAME$(START)>NAME$(START+1) THEN
  5. 0530         EXCHANGE(NAME$(START),NAME$(START+1))
  6. 0540       ENDIF 
  7. 0550     ENDFOR START
  8. 0560   ENDFOR TIMES
  9. 0570 ENDPROC BUBBLESORT
  10.